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-- BcdSEBuild.mesa; edited by Johnsson on April 12, 1978 5:29 PM 

DIRECTORY 

BcdControlDefs: FROM "bcdcontroldef s" , 
BcdDefs: FROM "bcddefs", 
BcdTabDefs: FROM "bcdtabdef s\ 
BcdTreeDefs: FROM "bcdtreedef s", 
BcdUtilDefs: FROM "bcdutildef s" , 
StringDefs: FROM "stringdef s", 
TableDefs: FROM "tabledefs" ; 

DEFINITIONS FROM BcdDefs, BcdTabDefs, BcdTreeDefs; 

BcdSEBuild: PROGRAM [data: BcdControlDefs .BinderData] 

IMPORTS BcdTabDefs, BcdTreeDefs, BcdUtilDefs, StringDefs, TableDefs 

EXPORTS BcdControlDefs - 

BEGIN 

BuildSEError: PUBLIC SIGNAL « CODE; 

currentCx, directoryCx: CXIndex; 

currentCti: CTIndex; 

tb, stb, ctb, cxb: TableDefs. TableBase; 

Notifier: TableDefs .TableNotif ier - 
BEGIN 

tb *- base[treetype]; 
stb <- base[sttype]; 
ctb <- base[cttype]; 
cxb 4- base[cxtype]; 
RETURN 
END; 

BuildSemanticEntries: PUBLIC PROCEDURE [root: TreeLink] - 
BEGIN 

TableDefs.AddNot if y [Notifier]; 

currentCx *- directoryCx <- BcdUtilDefs. NewContext[]; 
currentCti ♦- CTNull ; 
WITH root SELECT FROM 
subtree a ^ 

BEGIN OPEN tb+index; 
SELECT name FROM 
source »> 
BEGIN 

sonl <- updatelist[sonl,dirItem]; 
currentCx 4- BcdUtilDefs .NewContext[] ; 
son2 <- update! ist[son2 t Packld]; 
currentCx <- BcdUtilDefs. NewContext[] ; 
son3 <- TreeWalk[son3]; 
END; 
ENDCASE => SIGNAL BuildSEError; 
END; 
ENDCASE => SIGNAL BuildSEError; 
TableDefs.DropNotify[Notifier]; 
RETURN 
END; 

TreeWalk: TreeMap * 
BEGIN 

savelndex: CARDINAL ■ data. textlndex; 
WITH t SELECT FROM 

hash »> t 4- twltem[t]; 
symbol «> t «- twltem[t]; 
subtree «> 
BEGIN 

data, textlndex 4- (tb+index) . sourceindex; 
SELECT (tb+index). name FROM 

list »> [] 4- updatelist[t, TreeWalk]; 
item -> [] 4- twltem[t]; 
config *> twConf ig[index]; 
assign »> twAssign[index]; 
plus, then ■> [] 4- twExpression[t]; 
module ■> twModule[index]; 
ENDCASE «> SIGNAL BuildSEError; 
END; 
ENDCASE «> SIGNAL BuildSEError; 
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data, textlndex «- savelndex; 

RETURN[t] 

END; 

Packld: TreeMap » 
BEGIN 
WITH t SELECT FROM 

hash -> RETURN[SemanticEntry[t]]; 

subtree ■> RETURN[updatel ist[t, Packld]]; 

ENDCASE ■> SIGNAL BuildSEError; 
END; 

Processltem: PROCEDURE [t: TreeLink] 

RETURNS [tl: TreeLink, stl, st2: STIndex] - 

BEGIN 

stl: symbol TreeLink; 

st2 «- STNull; 

WITH tt: t SELECT FROM 

symbol ■> BEGIN tl «- tt; stl «- tt. index END; 

hash »> BEGIN tl <- stl «- SemanticEntry[t]; stl «- stl. index END; 

subtree ■> 

BEGIN OPEN tb+tt. index; 
tl «- t; 

sonl «- stl <- SemanticEntry[sonl]; 
stl <- stl . index; 
IF son2 # empty THEN 
BEGIN 

(stb+stl) .filename <- FALSE; 
son2 <- stl ♦• SemanticEntry[son2]; 
st2 «- stl . index; 

(stb+stl) .body *- external[pointer: instance[st2] , map: [unknown[]]]; 
END; 
END; 
ENDCASE => SIGNAL BuildSEError; 
RETURN 
END; 

SetFilename: PROCEDURE [sti: STIndex] ■ 
BEGIN 

OPEN stb+sti; 

IF filename OR type # unknown THEN RETURN; 
filename <- TRUE; 

body <- external[pointer: file[FTNull], map: [unknown[]]]; 
RETURN 
END; 

twltem: TreeMap ■ 
BEGIN 

stl, st2: STIndex; 
[v,stl,st2] ♦- ProcessItem[t]; 
IF st2 - STNull THEN SetFil ename[stl] 
ELSE SetFilename[st2]; 
RETURN 
END; 

dirltem: TreeMap * 
BEGIN 

sti: STIndex; 
stl: symbol TreeLink; 
filename: STRING «- [40]; 
fti: FTIndex; 

name: StringDefs .SubStringDescriptor; 
WITH t SELECT FROM 
subtree ■> 
BEGIN 

stl ♦* SemanticEntry[(tb+index).sonl]; 
sti ♦• stl . index; 
WITH s2: (tb+index).son2 SELECT FROM 

hash ■> BcdTabDefs.SubStringForHash[@name,s2. index]; 
ENDCASE; 
END; 
ENDCASE; 
StringDefs . AppendSubString[f ilename, Qnaroe]; 
fti <- BcdUtilDefs.EnterFile[filename]; 

(stb+sti ) .body <- external[map: [unknown[]], pointer: file[fti]]; 
RETURN 
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END; 

impltem: TreeMap ■ 
BEGIN 

stl, st2: STIndex; 
[v,stl,st2] <- ProcessItem[t]; 
(stb+stl) .imported «- TRUE; 
RETURN 
END; 

expltem: TreeMap ■ 
BEGIN 

stl, st2: STIndex; 
[v t stl,st2] <~ ProcessItem[t]; 
(stb+stl) .exported <- TRUE; 
RETURN 
END; 

twConfig: PROCEDURE [t: Treelndex] - 
BEGIN OPEN tb+t; 
saveCx: CXIndex ■ currentCx; 
saveName: NameRecord ■ data.currentname; 
EnterConf ig[t]; -- name 

IF sonl # empty THEN sonl *- update! ist[sonl, impltem]; -- IMPORTS 
IF son2 # empty THEN son2 ♦■ updatel ist[son2, expltem]; -- EXPORTS 
IF son3 # empty THEN — CONTROL 
WITH son3 SELECT FROM 

hash => son3 <- SemanticEntry[son3]; 

symbol => NULL; 

ENDCASE => SIGNAL BuildSEError; 
son5 <- TreeWalk[son5]; -- body 
currentCx <- saveCx; 
data.currentname <- saveName; 
RETURN 
END; 

assignltem: TreeMap ■ 
BEGIN 

stl, st2: STIndex; 
[v,stl,st2] «- ProcessItem[t]; 
(stb+stl) .assigned «- TRUE; 
IF (stb+stl). filename THEN 

BEGIN OPEN stb+stl; 

filename <- FALSE; 

body «- external[pointer: instance[st2], map: [unknown[]]]; 

END; 
IF st2 § STNull THEN 

BEGIN OPEN stb+st2; 

assigned <- TRUE; 

filename *- FALSE; 

body <- external[pointer: instance[STNull] , map: [unknown[]]]; 

END; 
RETURN 
END; 

twAssign: PROCEDURE [t: Treelndex] « 
BEGIN OPEN tb+t; 

sonl ♦• updatelist[sonl, assignltem]; 
son2 *- twExpression[son2]; 
END; 

twExpression: TreeMap ■ 
BEGIN 
WITH t SELECT FROM 

symbol ■> t «- ProcessItem[t]. tl ; 
hash *> t «- ProcessItem[t]. tl ; 
subtree ■> 

SELECT (tb+index).name FROM 
item ■> t <- ProcessItem[t]. tl ; 
module ■> twModule[index]; 
plus, then «> 

BEGIN OPEN tb+index; 
sonl <~ twExpression[sonl]; 
son2 ♦- twExpression[son2]; 
END; 
ENDCASE -> SIGNAL BuildSEError; 
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ENDCASE -> SIGNAL BuildSEError; 
RETURN[t] 
END; 

modltem: TreeMap ■ 
BEGIN 
WITH t SELECT FROM 

symbol -> NULL; 

hash «> RETURN[SemanticEntry[t]]; 

ENDCASE ■> SIGNAL BuildSEError; 
END; 

twModule: PROCEDURE [t: Treelndex] ■ 
BEGIN OPEN tb+t; 
sonl 4- twItem[sonl]; 
son2 +• updatelist[son2, modltem]; 
RETURN 
END; 

SemanticEntry: PROCEDURE [tl : TreeLink] RETURNS [symbol TreeLink] « 
BEGIN 

sti, dirsti: STIndex; 
last: STIndex <- STNull; 
WITH t: tl SELECT FROM 
symbol => RETURN[t]; 
hash «> 
BEGIN 

FOR sti 4- (cxb+currentCx).link, (stb+sti) . 1 ink UNTIL sti « STNull DO 
IF (stb+sti). hti - t. index THEN 
RETURN[TreeLink[ symbol [sti]]]; 
last <- sti; 
ENDLOOP; 
FOR dirsti «- (cxb+directoryCx) . 1 ink , (stb+dirsti) . 1 ink UNTIL dirsti = STNull DO 
IF (stb+dirsti). hti ■ t. index THEN 

EXIT; 
ENDLOOP; 
sti 4- BcdUtilDefs .NewSemanticEntry[t. index]; 
IF last * STNull THEN (cxb+currentCx) . 1 ink <- sti 
ELSE (stb+last).link <- sti; 
IF dirsti # STNull THEN 
BEGIN 

(stb+sti)t 4- (stb+dirsti)t; 
(stb+sti). link «- STNull; 
END; 
RETURN[TreeLink[symbol[sti]]]; 
END; 
ENDCASE => SIGNAL BuildSEError 
END; 

EnterConfig: PROCEDURE [t: Treelndex] - 
BEGIN 

sti: symbol TreeLink; 
sti: STIndex; 

sti <- SemanticEntry[(tb+t) . son4]; 
(tb+t).son4 4- sti ; 

(stb+(sti 4- sti . index)) .filename 4- FALSE; 
currentCx 4- BcdUtilDefs. NewContext[]; 
data, currentname 4- BcdUtilDefs. NameForSti[sti]; 
WITH stb+sti SELECT FROM 

unknown ■*> (stb+sti) . body 4- local[info: t, context: currentCx]; 

ENDCASE *> SIGNAL BuildSEError; 
RETURN 
END; 

END... 



